home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xaw / paned.d < prev    next >
Encoding:
Text File  |  1991-09-25  |  1.0 KB  |  34 lines
  1. ;;; -*-Scheme-*-
  2.  
  3. (define-widget-type 'paned "Paned.h")
  4.  
  5. (define-widget-class 'paned 'panedWidgetClass)
  6.  
  7. (define-primitive 'paned-allow-resize '(w enable)
  8. "   Check_Widget (w);
  9.     Check_Type (enable, T_Boolean);
  10.     XawPanedAllowResize (WIDGET(w)->widget, EQ (enable, True));
  11.     return Void;")
  12.  
  13. (define-primitive 'paned-set-min-max! '(w min max)
  14. "   Check_Widget (w);
  15.     XawPanedSetMinMax (WIDGET(w)->widget, Get_Integer (min),
  16.     Get_Integer (max));
  17.     return Void;")
  18.  
  19. (define-primitive 'paned-get-min-max '(w)
  20. "   int min, max;
  21.     Check_Widget (w);
  22.     XawPanedGetMinMax (WIDGET(w)->widget, &min, &max);
  23.     return Cons (Make_Fixnum (min), Make_Fixnum (max));")
  24.  
  25. (define-primitive 'paned-set-refigure-mode! '(w enable)
  26. "   Check_Widget_Class (w, panedWidgetClass);
  27.     Check_Type (enable, T_Boolean);
  28.     XawPanedSetRefigureMode (WIDGET(w)->widget, EQ (enable, True));
  29.     return Void;")
  30.  
  31. (define-primitive 'paned-get-num-sub '(w)
  32. "   Check_Widget_Class (w, panedWidgetClass);
  33.     return Make_Fixnum (XawPanedGetNumSub (WIDGET(w)->widget));")
  34.